(Info-index-next): Add total number of index alternatives to the message.

diff --git a/lisp/info.el b/lisp/info.el
index 6594d76fa0318cc470fa15d0fa14ff542498ec9a..c94e4121dc8a105ea3f06247cce14d7e30459936 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -2819,7 +2819,8 @@ Give a blank topic name to go to the Index node itself."
           (car (car Info-index-alternatives))
           (nth 2 (car Info-index-alternatives))
           (if (cdr Info-index-alternatives)
-              "(`,' tries to find next)"
+              (format "(%s total; use `,' for next)"
+                      (length Info-index-alternatives))
             "(Only match)")))
 
 (defun Info-find-index-name (name)